home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2001 May / macformat_103_may_2001.iso / Shareware / Utilities / MacGhostView Folder / ghostscript / gs6.01 / lib / ps2epsi < prev    next >
Encoding:
Text File  |  2000-11-21  |  1.6 KB  |  85 lines  |  [TEXT/R*ch]
  1. #!/bin/sh
  2. # $Id: ps2epsi,v 1.1 2000/03/09 08:40:40 lpd Exp $
  3.  
  4. tmpfile=/tmp/ps2epsi$$
  5.  
  6. export outfile
  7.  
  8. if [ $# -lt 1 -o $# -gt 2 ]; then
  9.     echo "Usage: `basename $0` file.ps [file.epsi]" 1>&2
  10.     exit 1
  11. fi
  12.  
  13. infile=$1;
  14.  
  15. if [ $# -eq 1 ]
  16. then
  17.     case "${infile}" in
  18.       *.ps)        base=`basename ${infile} .ps` ;;
  19.       *.cps)    base=`basename ${infile} .cps` ;;
  20.       *.eps)    base=`basename ${infile} .eps` ;;
  21.       *.epsf)    base=`basename ${infile} .epsf` ;;
  22.       *)        base=`basename ${infile}` ;;
  23.     esac
  24.     outfile=${base}.epsi
  25. else
  26.     outfile=$2
  27. fi
  28.  
  29. ls -l ${infile} |
  30. awk 'F==1    {
  31.         cd="%%CreationDate: " $6 " " $7 " " $8;
  32.         t="%%Title: " $9;
  33.         f="%%For:" U " " $3;
  34.         c="%%Creator: Ghostscript ps2epsi from " $9;
  35.         next;
  36.         }
  37.     /^%!/    {next;}
  38.     /^%%Title:/    {t=$0; next;}
  39.     /^%%Creator:/    {c=$0; next;}
  40.     /^%%CreationDate:/    {cd=$0; next;}
  41.     /^%%For:/    {f=$0; next;}
  42.     !/^%/    {
  43.         print "/ps2edict 30 dict def";
  44.         print "ps2edict begin";
  45.         print "/epsititle (" t "\\n) def";
  46.         print "/epsicreator (" c "\\n) def";
  47.         print "/epsicrdt (" cd "\\n) def";
  48.         print "/epsifor (" f "\\n) def";
  49.         print "end";
  50.         exit(0);
  51.         }
  52.     ' U="$USERNAME$LOGNAME"  F=1 - F=2 ${infile} >$tmpfile
  53.  
  54. gs -q -dNOPAUSE -r72 -sDEVICE=bit -sOutputFile=/dev/null $tmpfile ps2epsi.ps $tmpfile <${infile} 1>&2
  55. rm -f $tmpfile
  56.  
  57. (
  58. cat << BEGINEPS
  59. save
  60. countdictstack
  61. mark
  62. newpath
  63. /showpage {} def
  64. /setpagedevice {pop} def
  65. %%EndProlog
  66. %%Page 1 1
  67. BEGINEPS
  68.  
  69. cat ${infile} |
  70. tr -d '\015' |
  71. sed -e '/^%%BeginPreview:/,/%%EndPreview$/d' -e '/^%!PS-Adobe/d'\
  72.     -e '/^%%[A-Za-z][A-Za-z]*$/d' -e '/^%%[A-Za-z][A-Za-z]*: /d'
  73.  
  74. cat << ENDEPS
  75. %%Trailer
  76. cleartomark
  77. countdictstack exch sub { end } repeat
  78. restore
  79. %%EOF
  80. ENDEPS
  81.  
  82. ) >> ${outfile}
  83.  
  84. exit 0
  85.